Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/stabilzr.sit/The Stabilizer/background_2678.txt

Text File | 1989-02-05 | 13KB | 548 lines

-- background: 2678 from stack: in
-- bmap block id: 18544
-- flags: 4000
-- background id: 0
-- name:


-- part 90 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=14 top=56 right=313 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: expense
----- HyperTalk script -----
on mouseDown
  seeItems
end mouseDown


-- part 124 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=175 top=56 right=313 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: expense2
----- HyperTalk script -----
on mouseDown
  seeItems
end mouseDown


-- part 144 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=336 top=56 right=313 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: expense3
----- HyperTalk script -----
on mouseDown
  seeItems
end mouseDown


-- part 147 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=251 top=18 right=37 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Enter Item
----- HyperTalk script -----
on mouseUp
  global moreExpenses
  put 1 into moreExpenses
end mouseUp



-- part 148 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=336 top=18 right=37 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Item
----- HyperTalk script -----
--Copyright ©1988 - Scott McGilliard - all rights reserved

on mouseUp
  if the optionKey is down then
    answer "Delete all the expense items?" with "Cancel" or "OK"
    if it = "OK" then
      push this card
      set lockScreen to true
      put line 3 of card field "startMonth" of card "Year Totals" into adjust
      repeat with i = 2 to the number of items in adjust
        get item i of adjust
        go card it
        if the result = empty then doMenu "Delete Card"
      end repeat
      pop card
      put empty into card field "allExpenses" of card "whichMonths"
      put empty into card field "startMonth" of card "Year Totals"
      noMore
      put "This will take a couple of minutes, please wait."
      repeat with i = 1 to 2
        put empty into card field i of card "printList"
      end repeat
      repeat with i = 1 to 9
        put empty into card field i of card "printTotals"
      end repeat
      repeat with i = 1 to 6
        put empty into card field i of card "printMonths2"
      end repeat
      repeat with i = 1 to 6
        put empty into card field i of card "printMonths"
      end repeat
      doMath
    else
      exit mouseUp
    end if
  else
    set loc of msg to 18,15
    put "Please click on the expense item you want deleted"
    set cursor to 3
    repeat until the mouse is down
    end repeat
    put item 1 of the mouseLoc into temp1
    put item 2 of the mouseLoc into temp2
    if temp1 < 14 or temp1 > 497 then
      hide msg
      exit mouseUp
    end if
    if temp1 >= 14 and temp1 <= 175 then
      put "expense" into whichField
    else
      if temp1 >= 176 and temp1 <= 335 then
        put "expense2" into whichField
      else
        if temp1 >= 336 and temp1 <= 497 then
          put "expense3" into whichField
        end if
      end if
    end if
    put card field "allExpenses" of card "whichMonths" into allExpenses
    put (temp2 - 39) div 16 into whichLine
    put line whichLine of field whichField into whatExpense
    if whatExpense Γëá empty then
      answer "Delete expense item..." && whatExpense &&"?" with "Cancel" or "OK"
      if it = "Cancel" then put empty into whatExpense
    end if
    if whatExpense = empty then
      hide msg
      exit mouseUp
    end if
    set cursor to 4
    set loc of msg to 19,106
    put "Please wait"
    delete line whichLine of field whichField
    if line 16 of field 1 = empty then
      put line 1 of field 2 into line 16 of field 1
      delete line 1 of field 2
    end if
    if line 16 of field 2 = empty then
      put line 1 of field 3 into line 16 of field 2
      delete line 1 of field 3
    end if
    repeat with i = 1 to 3
      if field i Γëá empty then
        repeat

          get field i
          if it = empty then exit repeat

          get the number of lines of field i
          if line it of field i = empty then
            delete line it of field i
          else
            exit repeat
          end if
        end repeat
      end if
    end repeat
    repeat with i = 1 to the number of lines in allExpenses
      if whatExpense = item 1 of line i of allExpenses then
        delete line i of card field "allExpenses" of card "whichMonths"
        exit repeat
      end if
    end repeat
    if whatExpense is in line 3 of card field "startMonth" of card "Year Totals" then
      set lockScreen to true
      put line 3 of card field "startMonth" of card "Year Totals" into adjust
      repeat with i = 2 to the number of items in adjust
        if whatExpense = item i of adjust then delete item i of line 3 of card field "startMonth" of card "Year Totals"
        exit repeat
      end repeat
      go card whatExpense
      if the result = empty then doMenu "Delete Card"
      pop card
    end if
    repeat with x = 2 to 13
      repeat with y = 1 to 4
        if whatExpense is in field y of card x then
          repeat with i = 1 to the number of lines in field y of card x
            if whatExpense = line i of field y of card x then
              delete line i of field y of card x
              delete line i of field (y + 1) of card x
              exit repeat
            end if
          end repeat
          exit repeat
        end if
      end repeat
      get line 15 of field 1 of card x
      if it = empty then
        put line 1 of field 3 of card x into line 15 of field 1 of card x
        put line 1 of field 4 of card x into line 15 of field 2 of card x
        delete line 1 of field 3 of card x
        delete line 1 of field 4 of card x
      end if
    end repeat
    hide msg
  end if
end mouseUp



-- part 149 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=414 top=322 right=340 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Year Totals
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "Year Totals"
end mouseUp



-- part 150 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=38 top=10 right=46 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 11030 / 11030
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual dissolve
  go stack "Home"
end mouseUp



-- part 153 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=62 top=322 right=340 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Feb
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "February"
end mouseUp



-- part 154 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=93 top=322 right=340 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mar
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "March"
end mouseUp



-- part 155 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=124 top=322 right=340 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Apr
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "April"
end mouseUp



-- part 156 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=155 top=322 right=340 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: May
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "May"
end mouseUp



-- part 157 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=31 top=322 right=340 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jan
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "January"
end mouseUp



-- part 158 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=186 top=322 right=340 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jun
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "June"
end mouseUp



-- part 159 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=217 top=322 right=340 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jul
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "July"
end mouseUp



-- part 160 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=248 top=322 right=340 bottom=280
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Aug
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "August"
end mouseUp



-- part 161 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=279 top=322 right=340 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sep
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "September"
end mouseUp



-- part 162 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=310 top=322 right=340 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Oct
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "October"
end mouseUp



-- part 163 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=341 top=322 right=340 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nov
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "November"
end mouseUp



-- part 165 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=372 top=322 right=340 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dec
----- HyperTalk script -----
on mouseUp
  visual barn door close slowly to gray
  visual barn door open slowly
  go card "December"
end mouseUp



-- part 166 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=446 top=10 right=46 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 26104 / 26104
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HelpIndex
----- HyperTalk script -----
on mouseUp
  push card
  helpIndex
end mouseUp